CommonEvent 150
Name = "Reaper: Delete Male Companions"

  999([150])
  ShowTextAttributes(["sinigami_fc1", 0, 0, 2])
  ShowText(["\\n<Reaper>...I will erase some of the men from your companions list. Is this really what you want?"])
  ShowText([""])
  ShowText([""])
  ShowChoices([["I changed my mind", "Remove some of the men", "Remove all of the men"], 1])
  When([0, "やっぱりやめる"])
    ShowTextAttributes(["sinigami_fc1", 0, 0, 2])
    ShowText(["\\n<Reaper>I'll leave them alone then.\nOff with you now..."])
    ShowText([""])
    ShowText([""])
    MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 0, 0, 30, true])
    ErasePicture([5])
    ExitEventProcessing([])
    Empty([])

  When([1, "一部の男を抹消する"])
    RecoverAll([0, 0])
    ConditionalBranch([0, 1566, 0])
      ControlVariables([1038, 1038, 0, 0, 0])
      Empty([])

    BranchEnd([])
    Script(["delete_actor_ex(563)"])
    ScriptMore(["delete_actor_ex(564)"])
    ScriptMore(["delete_actor_ex(565)"])
    ScriptMore(["delete_actor_ex(566)"])
    ScriptMore(["delete_actor_ex(567)"])
    ScriptMore(["delete_actor_ex(569)"])
    ConditionalBranch([0, 447, 0])
      Script(["clear_actor_equip(563)"])
      ScriptMore(["clear_actor_equip(564)"])
      ScriptMore(["clear_actor_equip(565)"])
      ScriptMore(["clear_actor_equip(566)"])
      ScriptMore(["clear_actor_equip(567)"])
      ScriptMore(["clear_actor_equip(569)"])
      Empty([])

    BranchEnd([])
    ShowTextAttributes(["sinigami_fc1", 0, 0, 2])
    ShowText(["\\n<Reaper>They have been erased. Off with you now..."])
    ShowText([""])
    ShowText([""])
    MovePicture([5, nil, 0, 0, 0, 0, 100, 100, 0, 0, 30, true])
    ErasePicture([5])
    ExitEventProcessing([])
    Empty([])

  When([2, "全部の男を抹消する"])
    ShowTextAttributes(["ruka_fc1", 0, 0, 2])
    ShowText(["\\n<Luka>May as well get rid of all of them."])
    ShowText([""])
    ShowTextAttributes(["sinigami_fc1", 0, 0, 2])
    ShowText(["\\n<Reaper>Understood. Then I shall erase all of the men..."])
    ShowText([""])
    ShowTextAttributes(["sinigami_fc1", 0, 0, 2])
    ShowText(["\\n<Reaper>...Including you."])
    ShowText([""])
    ShowTextAttributes(["ruka_fc1", 0, 0, 2])
    ShowText(["\\n<Luka>GYAHHH!!!"])
    ShowText([""])
    FadeoutBGM([2])
    FadeoutScreen([])
    ErasePicture([5])
    Wait([240])
    Script(["forced_transfer(154,18,52)"])
    ChangePlayerFollowers([1])
    Script(["release_temp_actors"])
    Script(["$game_map.screen.clear"])
    FadeinScreen([])
    Script(["gain_medal(2112)"])
    ExitEventProcessing([])
    Empty([])

  ChoicesEnd([])
  Empty([])
